home *** CD-ROM | disk | FTP | other *** search
/ CD Fun House 8 / CD Funhouse Version 8.0 - Wayzata Technology (7013) (1993).iso / pc / mac / __cd_fun / __sports / hyperfoo.00 / card_5690.txt < prev    next >
Text File  |  1990-10-03  |  883b  |  43 lines
  1. -- card: 5690 from stack: in.00
  2. -- bmap block id: 6010
  3. -- flags: 0000
  4. -- background id: 2687
  5. -- name: Goal Post
  6. ----- HyperTalk script -----
  7. on openCard
  8.   global good, post, score1, score2
  9.  
  10.   put the random of 100 into x
  11.   put the random of 100 into y
  12.   if good is true then
  13.     put x+206 into x
  14.     put y+50 into y
  15.   else
  16.     if x>50 then put 511-x into x
  17.     put y+170 into y
  18.   end if
  19.   set loc of button 1 to x,y
  20.   wait for 1 second
  21.   put 0 into post
  22.   put false into good
  23.   go to card 5
  24.   Drawball
  25.   put score1 into card field 6
  26.   put score2 into card field 7
  27. end openCard
  28.  
  29.  
  30.  
  31. -- part 1 (button)
  32. -- low flags: 00
  33. -- high flags: 0001
  34. -- rect: left=266 top=58 right=101 bottom=294
  35. -- title width / last selected line: 0
  36. -- icon id / first selected line: 13259 / 13259
  37. -- text alignment: 1
  38. -- font id: 0
  39. -- text size: 12
  40. -- style flags: 0
  41. -- line height: 16
  42. -- part name: New Button
  43.